CD-ROM Magazine 28 Bonus/CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin/data/shared.dir/03029_Script_ROLLOVER HOTSPOTS

Text File | 1996-06-21 | 2KB | 50 lines

-- ---------------------------------------------------------------
-- Handler processFrameCheckHotspotRoll is given a two parameters.
-- The first is the labelSprite and the second is a list of lists on
-- hotspots of the form:  rolloversprite, labelCast, labelH, labelV.
-- The proper label is displayed when the mouse rolls over a hotpsot
-- in the list.

on processFrameCheckHotspotRoll hotspotList
  global labelSprite

  set the stretch of sprite labelSprite = TRUE
  puppetSprite labelSprite, FALSE
  processFrame

  repeat with i = 1 to count(hotspotList)
    set currentHotspot = getAt(hotspotList,i)
    set hotspotSprite = getAt(currentHotspot,1)
    set labelCast = getAt(currentHotspot,2)
    set labelH = getAt(currentHotspot,3)
    set labelV = getAt(currentHotspot,4)

    if rollover(hotspotSprite) then
      puppetSprite labelSprite, TRUE

      set the locH of sprite labelSprite = labelH
      set the locV of sprite labelSprite = labelV
      set the castNum of sprite labelSprite = the number of cast labelCast
      set the height of sprite labelSprite = the height of cast labelCast
      set the width of sprite labelSprite = the width of cast labelCast
      updateStage
      --else
      -- checkBackButtonRoll(point(the mouseH, the mouseV))
    end if

  end repeat
  updateStage
end


on processFrameCheckHotspotRollPause hotspotList
  processFrameCheckHotspotRoll hotspotList
  go to the frame
end


on removeLabels
  global labelSprite
  removeFromStage(labelSprite)
end